with Rational_Numbers;
with Rational_Numbers.Binary_Operators; u
with Rational_Numbers.Component;

package Rational_Numbers.Relations is

   --  function "=" ( X, Y  : Rational) return Boolean is
   --     Res : Rational;
   --  begin
   --     Res := X - Y;
   --     return  Numerator(Res) = 0;
   --  end "=";

   function "<" ( X, Y  : Rational) return Boolean is
   begin
      return  Numerator(X - Y ) < 0;
   end "<";

   function "<=" ( X, Y  : Rational) return Boolean is
   begin
      return  Numerator(X - Y) <= 0;
   end "<=";

   function ">" ( X, Y  : Rational) return Boolean is
   begin
      return  Numerator(X - Y) > 0;
   end ">";

   function ">=" ( X, Y  : Rational) return Boolean is
   begin
      return  Numerator(X - Y) >= 0;
   end ">=";

end Rational_Numbers.Relations;
